home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / I_MK.HD6 < prev    next >
Text File  |  1993-06-02  |  3KB  |  197 lines
  1. ds_name        db    'MOJ\I_MK',0
  2.  
  3. ;カラーアイコン制作ボックス
  4. ;画面右の大きな箱
  5.  
  6.  
  7. paint_wd:
  8. re_paint:
  9.      WD_CLS 0
  10.      BOX boxdt,1
  11.      ret
  12.  
  13.  
  14. be_called:
  15.  
  16.     YOMU ax,300
  17.  
  18.  
  19.     cmp    ax,1
  20.     je    fcol_ck
  21.  
  22.     cmp    ax,2
  23.     je    bcol_ck
  24.  
  25.     cmp    ax,3        ;前の色で塗り潰す｡
  26.     je    b_ful
  27.     cmp    ax,400
  28.     je    neru
  29.     cmp    ax,500
  30.     je    okiru
  31.      ret
  32. neru:
  33.     WD_ERZ 1
  34.     WD_ERZ 0
  35.     WD_LEFT
  36.     ret
  37. okiru:
  38.     WD_WANT
  39.     jmp    re_paint
  40.  
  41. fcol_dt:
  42.     call    sub_edi
  43.     dw    14,0
  44.  
  45. fcol_ck:
  46.  
  47.     YOMU    ax,302
  48.     call    fcol_dt
  49.     mov    [edi],ax
  50.  
  51.      KAKU word ptr 300,0
  52.      ret
  53. bcol_ck:
  54.  
  55.     YOMU    ax,302
  56.     call    fcol_dt
  57.     mov    [edi+2],ax
  58.      KAKU word ptr 300,0
  59.      ret
  60.  
  61. b_ful:
  62.     YOMU    ax,302        ;col no
  63.     call    boxdt3
  64.     mov    [edi+16],ax
  65.     mov    [edi+14],ax
  66.     BOX    boxdt3,1
  67.     ret
  68.  
  69. boxdt3:
  70.     call sub_edi
  71.         dw    1,255,255,0,0,0,0,15,0,1
  72.  
  73. boxdt2:
  74.     call sub_edi
  75.     dw    1,7,7,0,0,8,0,15,15,1
  76.  
  77.  
  78.  
  79. mouse_in:                   ;諸葛亮よりwindowにマウスが入ったと言って来た｡
  80.       cmp ch,0          ;左ボタンが押されていれば
  81.       jne mouseck        ; 何処の箱か調べさせる
  82.       ret
  83. m_dt:
  84.     call    sub_edi
  85.     dw    3 dup (0)
  86.  
  87. mouseck:
  88.     call    m_dt
  89.     mov    [edi],cx
  90.     mov    [edi+2],dx
  91.     mov    [edi+4],bx
  92.  
  93.      MOU boxdt,1        ;関策にboxdtより箱を二つ調べさせる
  94.  
  95.      cmp bx,1                  ;bx=1 find
  96.      je short mck1             
  97.      ret
  98. mck1:
  99.  
  100.     call    m_dt
  101.     mov    cx,[edi]
  102.  
  103.     mov    bx,[edi+4]
  104.  
  105.     shr    bx,3
  106.     shl    bx,3
  107.  
  108.     mov    dx,[edi+2]
  109.     sub    dx,370
  110.     shr    dx,3
  111.     shl    dx,3
  112.  
  113.     call    boxdt2
  114.     mov    [edi+8],bx
  115.     mov    [edi+6],dx
  116.  
  117.     cmp    ch,1
  118.     je    fda
  119.  
  120.     push    edi
  121.     call    fcol_dt
  122.     mov    ax,[edi+2]
  123.     pop    edi
  124.  
  125.     mov    [edi+14],ax
  126.     mov    [edi+16],ax
  127.     BOX    boxdt2,1
  128.     jmp    fda_1
  129. fda:
  130.     push    edi
  131.     call    fcol_dt
  132.     mov    ax,[edi]
  133.     pop    edi
  134.  
  135.     mov    [edi+14],ax
  136.     mov    [edi+16],ax
  137.     BOX    boxdt2,1
  138. fda_1:
  139.     mov    ah,5
  140.     mov    al,1
  141.     call    zzz
  142.     
  143.     call    boxdt2
  144.     mov    dx,[edi+14]
  145.     mov    ah,7
  146.     mov    al,0
  147.     call    zzz
  148.  
  149.     call    boxdt2
  150.     mov    dx,[edi+6]
  151.     mov    bx,[edi+8]
  152.     shr    dx,3
  153.     shr    bx,3
  154.     add    dx,324
  155.     add    bx,41
  156.     call    ten_kaku
  157.     mov    [esi+2],dx
  158.     mov    [esi+4],bx
  159.     mov    ah,40h
  160.     call    zzz
  161.     ret
  162. zzz:
  163.     M_ZZZ
  164.  
  165. ten_kaku:
  166.     call    sub_esi
  167.     dw    1
  168.     dw    0
  169.     dw    0
  170.  
  171. ;--------------------------------------------
  172. ;         look_me   諸葛亮に読ませるwindowデータです｡
  173.  
  174. look_me:
  175.      call sub_esi         ; esi 固定です｡
  176.      dd 0,0
  177.      dw     1    ; ここが 1 の物は open start です｡
  178.          dw      0
  179.          dw  256,256,350+20,0,15,0,0,0
  180.  
  181.  
  182. ;----------------------
  183. ;   関策に読ませるboxデータです｡名前は自由です｡
  184.  
  185. boxdt:
  186.     call sub_edi                               ; edi 固定です｡
  187.         dw    1,255,255,0,0,0,0,15,0,0
  188.  
  189. boxdt1:
  190.     call sub_edi                               ; edi 固定です｡
  191.         dw    1,48,20,12,2,0,20,11,8,0
  192.  
  193.  
  194.  
  195.  
  196.  
  197.